#!/usr/bin/perl
while(<>){
	split(/\,/);
	print @_[0];
}